extern int slapmt_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k);
